' DMA Character Clean-up Utility

' Removes garbage characters from DMA Vol II Character files
' for use with BasicImp.
' Version 1.02 by Zach Forsyth 1992

DIM ln$(100)

Begin:
CLS
FILES":DMA Characters"
PRINT
INPUT "Character to clean up: ",file$
IF file$ = "" THEN END
IF INSTR(file$,".chr") = 0 THEN file$ = file$ + ".chr"
file$ = UCASE$(file$)
CLS

count = 0

OPEN ":DMA Characters/"+file$ FOR INPUT AS #1
  WHILE NOT EOF(1)
    count = count + 1
    LOCATE 1,1
    PRINT "Reading line:"count
    LINE INPUT#1,ln$(count)
    PRINT ln$(count);SPACE$(80)
  WEND
CLOSE #1

PRINT 

OPEN ":DMA Characters/"+file$ FOR OUTPUT AS #1
  FOR a = 1 TO count
    LOCATE 3,1
    PRINT "Writing line:"a
    PRINT ln$(a);SPACE$(80)
    PRINT#1,ln$(a)
  NEXT
CLOSE #1

KILL ":DMA Characters/"+file$+".info"

GOTO Begin